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OPO Tips 


By Douglas C. McArthur 


After modifying multiple forms, how can | quickly save 
all the changes and quit my OPO application? 

When exiting the Designer with unsaved changes in any forms, 
OPO will ask for confirmation to save each form before quitting. If 
you have a large number of forms open, this can be a bit annoying. 


To easily save all changes made to forms in your OPO applica- 
tion, bring the Application window “to the front,” and then 
click the Save button on the toolbar (see Figure 1). You can now 
quit the application without the usual barrage of dialog boxes. 
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Figure 1: To simultaneously 
*21 save changes to all forms in 
@e-1 an OPO application, bring 
2) the Application window to 
the front, and click the Save 
icon. 
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How can I enter a multi-line message for ValidateMsg 
or ValidateRowMsg? 

The ValidateMsg and ValidateRowMsg properties define the text 
to display if an error occurs while validating the value of bound 
controls, causing the Validate or ValidateRow methods to return 
a value of False. Although the Property sheet only has a single line 
to enter a message, you can enter a multi-line message by embed- 
ding carriage returns within the string. 


An easy way to accomplish this is to first type the text of the mes- 
sage into a blank method on the Property sheet. You can then cut 
the entire block of text and paste it into the ValidateMsg or 
ValidateRowMsg property. 


Another way is to set these properties at run time. For instance: 


Sub OnLoad 
' Set ValidateMsg to a multiple line text string. 
frmTest.fldRequired.ValidateMsg = & 
"Invalid entry." & CHR(13) & CHR(13) & & 
"Please try again." 


' -- End Sub Click 


Note that on the Macintosh, a CHR(13) produces a new line, but 
for Windows, you must use a CHR(10). 


Why doesn’t my class instance inherit features from 
its parent? 

In this case, the instance was probably copied from another form 
or report. Instances of classes won't inherit methods and proper- 
ties from their parents with a simple cut (or copy) and paste job. 








Fortunately, the fix is just as easy. Simply drag and drop a new 
instance of the class onto the form. However, you must remember 
to manually update any properties or methods that you have over- 
ridden in the new instance. 


How can I get a combo box to redraw properly after 
setting the Visible property to True? 

Occasionally, OPO fails to redraw parts of invisible controls 
after they are made visible again, especially on the Macintosh 
(see Figure 2). This combo box, for instance, will lose its pop- 
up menu button after the Visible property is set to True. 
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Figure 2: In this Macintosh example, the combo box and Default button 
won't redraw properly. 





And despite what you might think, calling the ForceUpdate 
method for the form doesn’t fix the problem. Instead, you can 
force a redraw of the form by issuing this command: 

TopContainer.ColorFill = TopContainer.ColorFill 


This will cause the entire screen — including the missing combo 
box button — to re-draw. 


Is it possible to launch external programs from OPO on 
the Macintosh? 

The sample Launch application included with the Windows 
version of OPO demonstrates how to declare an external func- 
tion (or .DLL in Windows terminology) that will invoke 
another application. An undocumented feature of the 
Macintosh version allows the same ability using AppleScript. 


First, enter this line in the Declarations portion of your application: 


DECLARE FUNCTION DoScript LIB "" & 
(ByVal vString AS String) AS Long 


Note the empty double-quotes. AppleScript support is built into 
the OPO resource fork, so you don’t have to specify a file name for 
the external call. 


To test it, create a string that contains AppleScript commands to 
open a file. Note that carriage returns are required to separate 
lines, and quotes are needed around the application and file names 
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' Sub Click 

' Build an AppleScript command to open a file called 
' README located on the Desktop. Report an error if 
' one occurs. 


vApplication = CHR(24) & "Finder" & CHR(24) 

vFilename = CHR(24) & "Startup" & CHR(24) 

vScript = "tell application " & & 
vApplication & CHR(13) & & 
"select file " & & 
vFilename & CHR(13) & & 
"open selection" & CHR(13) & & 
"end tell" 

vError = DoScript(vScript) 


IF vError THEN MSGBOX("Error #" & vError) 
' -- End Sub Click 


Figure 3: Creating the btnDoScript button. 


(see Figure 3). Then create a button called btnDoScript within 
the Click method (again, see Figure 3). 


In addition, OPO for Macintosh can receive two AppleScript 
messages from other applications. Sending OPO a “Pay 
Attention” message will invoke any method code in the 
OMAMsgRcvd method of the front-most form. (The OMA 
methods are for Oracle Mobile Agents, which are not used on 


the Macintosh.) 


Sending OPO an “Exiting” message will invoke code in the 
OMAShutdown method of the front-most form. The “Exiting” 
message will not quit the OPO application, although you could 
add an Application.CloseApp to the OMAShutdown method to 
achieve this (see Figure 4). 
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(= OM AMegRevd 
sf OM AShutdown 
Sub OM a Shutdown 4 


' Quit the application when OPO gets an 
' “exiting” AppleScript message. 


Figure 4: Adding 
Application.CloseApp 
to the OMAShutdown 
allows other applica- 
tions to close your 
OPO application via 


IF SYS TEMA AME = "Macintosh" THEM AppleScript. 
Application Close Appr 4 


EMD IF 
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| have several levels of objects in my form, layered 
from back to front. In what order will the methods of 
these objects be executed? 

Within a given container, methods for the back-most object are 
executed first, continuing until the front-most object has been 
reached. This execution order can be important when method 
code in one object refers to values or properties of another object 
in the same container that may change. To assure that such 
method code executes J/ast (after the potential change in other 
object’s values), click on the object and select Bring to Front from 
the Object menu (see Figure 5). 
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Figure 5: Select Bring to Front to make the object the last one to execute. 


To determine the object order at run time, use 
[object].FirstChild and [child].NextControl. FirstChild 
will return a reference to the back-most object, and each successive 
NextControl statement will return a reference to the next front- 
most object in the container. 


How can | easily determine the order (front to back) of 
objects in a container? 

First, click on the container and use to move from one object 
to the next, from front to back. After all the objects in the container 
have been selected, the next object — again, from front to back — 
at the container’s level will be selected. Using [Tab], you can select 
any object on a form. This is a great way to find “hidden” fields. 


Where do those extra entries in my User Properties 
window come from? And how can | get rid of them? 

If youve created many user-defined properties and methods 
(UDPs and UDMs) in your OPO application, you've probably 
had some frustration with deleting extraneous entries from the 
User Properties window. You can remove an unused method, only 
to find that it later reappears. 


When an application is run, the UDPs and UDMs of each object 
encountered during compilation are added to the User Properties 
window. Classes sometimes collect a large number of UDPs and 
UDMs, including some that arent used by the current application. 


When you run a form containing an instance from that class, the 
User Properties window starts to fill. To avoid this, open each class 
object and trim the User Properties window by deleting extraneous 
entries with the Delete button on the toolbar. Then save the class, 
which will also save the changes made to the User Properties window. 


This Month’s Tips & Tricks Challenge 
Without an OrderBy property, how can you sort your data in an 
OPO report? GM 


The demonstration applications referenced in this article are available 
on the Oracle Informant Works CD located in INFORM\96\MAR\ 
OL9603DM. 


Douglas McArthur is a senior scientific programmer with MDL 
Information Systems, Inc., developing a client/server data man- gte | 
agement system for drug discovery and high throughput screen- 
ing. He can be reached at douglasm@mdli.com. 





UNE Eo) (oe Dioeoanles me hese ef 
The Must Have Reference Source 
For The Serious Oracle® Developer Informed | 


The Entire Text of all Technical Subscribe to Oracle Informant, 


Articles Appearing in The Independent Monthly Guide to Oracle 


Oracle® Informant® in 1996 
Development. 
The Oracle® Informant® Works 1996 CD-ROM 


nae Order Now and Get One Issue FREE! 


@ All Technical Articles ae : . 3 
Mi Text and Keyword Search For a limited time you can receive the first issue FREE plus 12 additional 


Capability issues for only $49.95 That’s nearly 25% off the yearly cover price! 
Mi Improved Speed and Performance 
All Supporting Code and Sample Files 
Mi 16-Page Color Booklet 
@ Third-Party Add-In Product Demos 


A $130 Value HM CompuServe Starter Kit with $15 Usage Credit. 
Available Now for only 


$49.95 Call Now Toll Free 
caitomiarsidens | 1 -8Q0-88-INFORM 


add 7% Sales Tax, 
plus $5 shipping & handling 1-800-884-6367 Ask for offer # WEB 
for US orders. T, der b ‘il 

(International orders add $15 shipping & handling) HOreer 2) Aan 
send check or Money Order to: 
Informant Communications Group, Inc. 
ATTN: Works CD offer # WEB 
10519 E. Stockton Blvd, Suite 142 
Elk Grove, CA 95624-9704 
or Fax your order to 916-686-8497 


Each big issue of Oracle 
Informant is packed with Oracle 
tips, techniques , news, and more! 
















Mi Client/Server Development 
li Using Developer/2000™ 

i Tuning Oracle7 

Mi PL/SQL Techniques 

MM Advanced Oracle Topics 
Distributed Managment 

Mi Product Reviews 

Mi Book Reviews 

Mi News from the Oracle 


Community 





Mi Oracle User Group Information 





Hi Magazine-Only Subscription Plan... 


YES!, I want to sharpen my Oracle skills. ’ ve checked the subscription plan I’m interested in below 
\ 13 Issues Including One Bonus Issue at $49.95. 


W ® [| Magazine AND Companion Disk Subscription Plan... 
13 Issues and Disks Including One Bonus Issue and Disk at $119.95 
The Oracle Informant Companion Disk contains source code, support files, examples, utilities, samples, and more! 


| | Oracle Informant Works 1996 CD-ROM = $49.95 (Available December 1996) 


US residents add $5 shipping and handling. International customers add $15 shipping and handling. 
To order, mail or fax 


the adjoining form or call Name 
(916) 686-6610 Fax: (916) 686-8497 


Company 
International rates 
Magazine-only Address 
$54.95/year to Canada 
$74.95/year to Mexico City State Zip Code 
$79.95/year to all other countries Country. Phone 
Magazine AND Companion Disk : 
SC: . FAX E-Mail 
$124.95/year to Canada Payment Method... 
$154.95/year to Mexico 


I Check (payable to Informant Communications Group) I Purchase Order-- Provide Number 
LJ Visa (J Mastercard [J American Express Card Number 


California Residents add 7'/4% Expiration Date ————___- Signature ———_______ 
sales tax on disk subscription WEB 


$179.95 to all other countries 


Oracle and its products are trademarks of Oracle Corporation 


